home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / e / AmSp4E.lha / AmSp_Example5.e < prev    next >
Text File  |  1998-02-05  |  912b  |  39 lines
  1. /******************************
  2. *******************************      Used:
  3. ** example 5 for AmosBobs.m  **
  4. **                           **      - mLoadIB
  5. ** Display bobs/icons.       **      - mEraseIB
  6. **                           **      - mPasteQuickIB
  7. ** (C) 1999 By Krzys Cmok    **      - mPasteIB
  8. *******************************      - mPasteMaskIB
  9. ******************************/
  10.  
  11.  
  12. MODULE '*amosbobs','intuition/intuition'             /* open E modules */
  13.  
  14.  
  15. PROC main()
  16. DEF databank,w:PTR TO window,a               /* definition of datas (databank) and screen (s) */
  17.  
  18. /* load willy.abk file */
  19. IF (databank:=mLoadIB('willy.abk'))=0
  20.     WriteF('Can\at load willy.abk\n')
  21.     CleanUp()
  22. ENDIF
  23.  
  24. w:=OpenW(0,0,100,100,0,0,'Example 5',0,1,0);
  25.  
  26. REPEAT
  27.  
  28. FOR a:=0 TO 3
  29. mPasteQuickIB(w.rport,databank,30,30,a);
  30. Delay(5);
  31. ENDFOR
  32.  
  33. UNTIL Mouse()=1
  34.  
  35. CloseW(w)
  36. mEraseIB(databank)                    /* clean memory */
  37.  
  38. ENDPROC
  39.